home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
comm
/
intrlg11.zip
/
INTERLOG.EXE
/
0
/
RCDATA
/
TDLGINTERLOG
/
TDLGINTERLOG.txt
< prev
Wrap
Text File
|
1997-04-03
|
20KB
|
748 lines
object dlgInterlog: TdlgInterlog
Left = 200
Top = 128
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsDialog
Caption = 'Inter Log'
ClientHeight = 318
ClientWidth = 535
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object TabbedNotebook: TTabbedNotebook
Left = 84
Top = 4
Width = 449
Height = 277
HelpContext = 10
TabFont.Color = clBlack
TabFont.Height = -11
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 0
TabStop = False
object TTabPage
Left = 4
Top = 24
Caption = 'Output'
object GroupBox1: TGroupBox
Left = 300
Top = 100
Width = 137
Height = 141
HelpContext = 80
Caption = 'Total price'
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 20
Width = 44
Height = 13
Caption = 'Dialprice:'
end
object Label2: TLabel
Left = 8
Top = 58
Width = 66
Height = 13
Caption = 'Minutes price:'
end
object Label3: TLabel
Left = 8
Top = 97
Width = 27
Height = 13
Caption = 'Total:'
end
object eDialPrice: TEdit
Left = 4
Top = 35
Width = 129
Height = 21
HelpContext = 80
TabStop = False
ReadOnly = True
TabOrder = 0
end
object eMinutesPrice: TEdit
Left = 4
Top = 74
Width = 129
Height = 21
HelpContext = 80
TabStop = False
ReadOnly = True
TabOrder = 1
end
object eTotal: TEdit
Left = 4
Top = 112
Width = 129
Height = 21
HelpContext = 80
TabStop = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
end
end
object Memo: TMemo
Left = 4
Top = 8
Width = 291
Height = 233
HelpContext = 80
TabStop = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 2
end
object cbExtInfo: TCheckBox
Left = 300
Top = 72
Width = 133
Height = 17
HelpContext = 80
Caption = '&Extended information'
TabOrder = 0
OnClick = bReCalcClick
end
object bitRecalc: TBitBtn
Left = 300
Top = 8
Width = 137
Height = 25
Hint = 'Recalculate'
HelpContext = 80
Caption = '&Recalculate'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = bReCalcClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
NumGlyphs = 2
end
object bitSave: TBitBtn
Left = 368
Top = 32
Width = 69
Height = 25
Hint = 'Save...'
HelpContext = 80
Caption = '&Save...'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = bitSaveClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
7700333333337777777733333333008088003333333377F73377333333330088
88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
end
object bitFont: TBitBtn
Left = 300
Top = 32
Width = 69
Height = 25
Hint = 'Change Font...'
HelpContext = 80
Caption = '&Font...'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = bFontClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Price Setup'
object Bevel1: TBevel
Left = 0
Top = 211
Width = 441
Height = 38
Align = alBottom
Shape = bsTopLine
end
object GroupBox2: TGroupBox
Left = 12
Top = 4
Width = 205
Height = 81
HelpContext = 30
Caption = 'Dialprices'
TabOrder = 0
object Label6: TLabel
Left = 8
Top = 28
Width = 100
Height = 13
Caption = 'Price per dial............:'
end
object ePricePerDial: TEdit
Left = 112
Top = 24
Width = 85
Height = 21
HelpContext = 30
TabOrder = 0
Text = '0,125'
end
end
object GroupBox3: TGroupBox
Left = 224
Top = 4
Width = 205
Height = 81
HelpContext = 30
Caption = 'Unit prices'
TabOrder = 1
object Label4: TLabel
Left = 12
Top = 24
Width = 95
Height = 13
Caption = 'Normal price...........:'
end
object Label5: TLabel
Left = 12
Top = 48
Width = 96
Height = 13
Caption = 'Cheap hours...........:'
end
object eUnitPriceNormal: TEdit
Left = 112
Top = 20
Width = 85
Height = 21
HelpContext = 30
TabOrder = 0
Text = '0,32'
end
object eUnitPriceCheap: TEdit
Left = 112
Top = 48
Width = 85
Height = 21
HelpContext = 30
TabOrder = 1
Text = '0,16'
end
end
object GroupBox4: TGroupBox
Left = 224
Top = 88
Width = 205
Height = 113
HelpContext = 30
Caption = '*173* Special discount'
TabOrder = 3
object Label7: TLabel
Left = 12
Top = 28
Width = 96
Height = 13
Caption = 'Start price...............:'
end
object Label8: TLabel
Left = 12
Top = 56
Width = 96
Height = 13
Caption = 'Unit price................:'
end
object Label9: TLabel
Left = 12
Top = 84
Width = 97
Height = 13
Caption = 'Effectuated after.....:'
end
object Label10: TLabel
Left = 172
Top = 84
Width = 24
Height = 13
Caption = 'mins.'
end
object e173StartPrice: TEdit
Left = 112
Top = 24
Width = 85
Height = 21
HelpContext = 30
TabOrder = 0
Text = '1,50'
end
object e173UnitPrice: TEdit
Left = 112
Top = 52
Width = 85
Height = 21
HelpContext = 30
TabOrder = 1
Text = '0,08'
end
object eEffectuatedAfter: TEdit
Left = 112
Top = 80
Width = 57
Height = 21
HelpContext = 30
TabOrder = 2
Text = '30'
end
end
object bPriceSetupCancel: TButton
Left = 360
Top = 220
Width = 73
Height = 25
HelpContext = 30
Caption = '&Cancel'
TabOrder = 5
OnClick = bPriceSetupCancelClick
end
object bPriceSetupOK: TButton
Left = 284
Top = 220
Width = 73
Height = 25
HelpContext = 30
Caption = '&OK'
Default = True
TabOrder = 4
OnClick = bPriceSetupOKClick
end
object GroupBox7: TGroupBox
Left = 12
Top = 88
Width = 205
Height = 113
HelpContext = 30
Caption = 'Times'
TabOrder = 2
object Label17: TLabel
Left = 12
Top = 20
Width = 148
Height = 13
Caption = 'Cheap time start.......................:'
end
object Label18: TLabel
Left = 12
Top = 52
Width = 149
Height = 13
Caption = 'Cheap time end........................:'
end
object cbSundays: TCheckBox
Left = 8
Top = 80
Width = 189
Height = 17
HelpContext = 30
Alignment = taLeftJustify
Caption = 'Always cheap time on sundays.......:'
State = cbChecked
TabOrder = 2
end
object meChpTimeSTart: TMaskEdit
Left = 164
Top = 16
Width = 33
Height = 21
HelpContext = 30
EditMask = '!90:00;1;_'
MaxLength = 5
TabOrder = 0
Text = ' : '
end
object meChpTimeEnd: TMaskEdit
Left = 164
Top = 48
Width = 33
Height = 21
HelpContext = 30
EditMask = '!90:00;1;_'
MaxLength = 5
TabOrder = 1
Text = ' : '
end
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Logfile Setup'
object Bevel2: TBevel
Left = 0
Top = 211
Width = 441
Height = 38
Align = alBottom
Shape = bsTopLine
end
object bLogFileSetupOK: TButton
Left = 284
Top = 220
Width = 73
Height = 25
HelpContext = 40
Caption = '&OK'
Default = True
TabOrder = 2
OnClick = bLogFileSetupOKClick
end
object bLogFileSetupCancel: TButton
Left = 360
Top = 220
Width = 73
Height = 25
HelpContext = 40
Caption = '&Cancel'
TabOrder = 3
OnClick = bLogFileSetupCancelClick
end
object GroupBox5: TGroupBox
Left = 8
Top = 12
Width = 421
Height = 97
HelpContext = 40
Caption = 'Files'
TabOrder = 0
object Label11: TLabel
Left = 8
Top = 20
Width = 101
Height = 13
Caption = 'Windows logfile........:'
end
object Label12: TLabel
Left = 8
Top = 48
Width = 102
Height = 13
Caption = 'Temporary file...........:'
end
object eWinLogFile: TEdit
Left = 112
Top = 16
Width = 277
Height = 21
HelpContext = 40
TabOrder = 0
Text = 'C:\WINDOWS\modemlog.txt'
end
object eTempFile: TEdit
Left = 112
Top = 44
Width = 277
Height = 21
HelpContext = 40
TabOrder = 1
Text = 'C:\WINDOWS\modemlok.txt'
end
object cbReduceSize: TCheckBox
Left = 112
Top = 72
Width = 201
Height = 17
HelpContext = 40
Caption = '&Reduce logfile size'
State = cbChecked
TabOrder = 2
end
object bBrowseLogfile: TButton
Left = 392
Top = 16
Width = 21
Height = 21
HelpContext = 40
Caption = '...'
TabOrder = 3
OnClick = bBrowseLogfileClick
end
object bBrowseTempFile: TButton
Left = 392
Top = 44
Width = 21
Height = 21
HelpContext = 40
Caption = '...'
TabOrder = 4
OnClick = bBrowseTempFileClick
end
end
object GroupBox6: TGroupBox
Left = 8
Top = 112
Width = 421
Height = 77
HelpContext = 40
Caption = 'Logfile tokens'
TabOrder = 1
object Label13: TLabel
Left = 8
Top = 20
Width = 83
Height = 13
Caption = 'Dialing................:'
end
object Label14: TLabel
Left = 8
Top = 48
Width = 84
Height = 13
Caption = 'Connection.........:'
end
object Label15: TLabel
Left = 212
Top = 20
Width = 80
Height = 13
Caption = 'Hangup.............:'
end
object Label16: TLabel
Left = 212
Top = 48
Width = 80
Height = 13
Caption = '*173*.................:'
end
object eDialing: TEdit
Left = 96
Top = 16
Width = 109
Height = 21
HelpContext = 40
TabOrder = 0
Text = 'Dialing'
end
object eConnection: TEdit
Left = 96
Top = 44
Width = 109
Height = 21
HelpContext = 40
TabOrder = 1
Text = 'Connection established'
end
object eHangup: TEdit
Left = 296
Top = 16
Width = 109
Height = 21
HelpContext = 40
TabOrder = 2
Text = 'Hanging up the modem.'
end
object e173Dialing: TEdit
Left = 296
Top = 44
Width = 109
Height = 21
HelpContext = 40
TabOrder = 3
Text = 'Send: ATDT*###*(##)######'
end
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Info'
object Panel1: TPanel
Left = 8
Top = 12
Width = 425
Height = 221
HelpContext = 50
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label19: TLabel
Left = 16
Top = 16
Width = 179
Height = 24
Caption = 'Interlog version 1.1'
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 16
Top = 44
Width = 135
Height = 13
Caption = '(c) 1997 Caos Development.'
end
object Label21: TLabel
Left = 16
Top = 60
Width = 86
Height = 13
Caption = 'All rights reserved.'
end
object Label22: TLabel
Left = 12
Top = 88
Width = 257
Height = 45
AutoSize = False
Caption =
'This program is Public Domain, and may be distributed freely if ' +
'distributed in its entirely, and without any changes except for ' +
'compressing purposes.'
WordWrap = True
end
object Label23: TLabel
Left = 12
Top = 136
Width = 253
Height = 73
AutoSize = False
Caption =
'The CAOS InterLog is distributed as-is. The author disclaims all' +
' warranties, expressed or implied. The author will assume no lia' +
'bility for damages either from the direct use of this product or' +
' as a consequence of the use of this product.'
WordWrap = True
end
object Myself: TImage
Left = 272
Top = 4
Width = 150
Height = 214
Hint = 'Yeps, I did this!'
AutoSize = True
ParentShowHint = False
Picture.Data = {<image000.bmp>}
ShowHint = True
end
end
end
end
object Panel2: TPanel
Left = 4
Top = 28
Width = 77
Height = 249
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object InterLoglogo: TImage
Left = 14
Top = 14
Width = 46
Height = 219
AutoSize = True
Picture.Data = {<image001.bmp>}
end
end
object bitClose: TBitBtn
Left = 448
Top = 288
Width = 73
Height = 25
HelpContext = 10
Cancel = True
Caption = '&Close'
TabOrder = 2
OnClick = bCloseClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
33B33733333773333373B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object FontDialog: TFontDialog
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Options = [fdEffects, fdForceFontExist]
Left = 4
Top = 288
end
object SaveDialog: TSaveDialog
DefaultExt = '.TXT'
FileEditStyle = fsEdit
Filter = 'Text file (*.TXT)|*.TXT'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
Left = 32
Top = 288
end
object OpenDialog: TOpenDialog
DefaultExt = '*.TXT'
FileEditStyle = fsEdit
Filter =
'Text files (*.TXT)|*.TXT|All files (*.*)|*.*|Win95 logfile|modem' +
'log.Txt|Modemlok.txt|modemlok.txt'
Left = 64
Top = 288
end
end